Unit TestBaseDLLUnit;

Interface

 ThreadVar
  I: Integer;

 Procedure DLLLog;

 Exports DLLLog;

Implementation

 Procedure DLLLog;
  BEGIN
   Log(llInfo, 'DLL XD');
   IF I DIV (I - I) = 0 // Divide-by-zero
   then Log(llInfo, 'DLL XD1');
  END;

Initialization

 //Error(reHardware); // Raise an unsupported hardware error and prevent DLL from loading.
 //Halt($123); // Will cause an Initialization Failure error and prevent DLL from loading.
 Log(llInfo, 'DLL Init');

Finalization

 //Error(reHardware); // Abort finalization of this unit, and result in a log entry
 //Halt($123); // Abort finalization of this unit, and result in a log entry
 Log(llInfo, 'DLL FInit');

END.
